﻿Public Class ven_eng_rec5

    Private Sub btnok_ven_eng_rec5_Click(sender As Object, e As EventArgs) Handles btnok_ven_eng_rec5.Click
        yc5 = Convert.ToSingle(txtyc5_eng_rec5.Text)
        pc5 = Convert.ToSingle(txtpc5_eng_rec5.Text)
        angpresn5 = Convert.ToSingle(txtangpresn5_eng_rec5.Text)
        angpresn5 = angpresn5 * (3.141592 / 180)
        angheli5 = 0
        angheli5 = angheli5 * (3.141592 / 180)
        mod5 = Convert.ToSingle(txtmod5_eng_rec5.Text)
        z5 = Convert.ToSingle(txtz5_eng_rec5.Text)
        mt5 = (pc5 * 10 ^ 6) / nrev
        dp5 = (mod5 * z5) / Math.Cos(angheli5)
        c5x = (2 * mt5) / dp5
        c5y = c5x * Math.Tan(angheli5)
        c5z = c5x * (Math.Tan(angpresn5) / Math.Cos(angheli5))
        m5x = -dp5 * 0.5 * c5y
        m5y = dp5 * 0.5 * c5x
        m5z = 0

        Me.Close()
    End Sub
End Class